home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
infoplus.zip
/
PAGE_17.INC
< prev
Wrap
Text File
|
1990-06-25
|
933b
|
30 lines
procedure page_17;
var
xbyte: byte;
begin
TextColor(White);
GotoXY((twidth div 2) - 15, 1);
Writeln('Thank You for using INFOPLUS!!');
Writeln;
TextColor(LightCyan);
Writeln(' If you have any questions, bug reports, or suggestions, I can be');
Writeln('reached at the following places:');
Writeln;
TextColor(LightRed);
Writeln('Unix Mail : andyross@ddsw1.MCS.COM');
Writeln('Central Command: (708)359-9346 (1200/2400)');
Writeln(' (708)359-9396 (HST 14.4)');
Writeln('ddsw1 : (708)808-7300 (1200/2400, 6 lines)');
Writeln(' (708)808-7306 (PEP)');
Writeln('RCS Defender : (708)390-6603 (1200/2400)');
Window(1, tlength - 2, twidth, tlength - 2);
xbyte:=TextAttr;
TextColor(White);
TextBackground(Brown);
Writeln;
Write('INFOPLUS ', qversion, ', by Andrew Rossmann, ' + qdate);
TextAttr:=xbyte;
end;